Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\auto_sign_in.lnk")
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
StrCurPath = fso.GetFolder(".")
oShellLink.TargetPath = StrCurPath+"\startup_main.cmd"
oShellLink.WindowStyle = 3
oShellLink.Hotkey = "Ctrl+Alt+e"
oShellLink.Description = "快捷方式"
oShellLink.WorkingDirectory = StrCurPath
oShellLink.Save
